improve usage

These commands operate on not only remotes, but any way a repository can
be specified, including "here" etc.

Sponsored-by: Graham Spencer on Patreon

diff --git a/CmdLine/Usage.hs b/CmdLine/Usage.hs
index ed390d0e8f2372f85617a9151dcf5fb76b25ba5a..f3434d7091fa8f22761acc873a8516cf470d01fd 100644 (file)
--- a/CmdLine/Usage.hs
+++ b/CmdLine/Usage.hs
@@ -60,6 +60,8 @@ paramNumRange :: String
 paramNumRange = "NUM|RANGE"
 paramRemote :: String
 paramRemote = "REMOTE"
+paramRemote :: String
+paramRemote = "REPOSITORY"
 paramField :: String
 paramField = "FIELD"
 paramGlob :: String

diff --git a/Command/Dead.hs b/Command/Dead.hs
index b304514eade73161047fca0200ff68056d7045fe..fcac38a27eab3891296099255fc00b6fdd1502aa 100644 (file)
--- a/Command/Dead.hs
+++ b/Command/Dead.hs
@@ -16,7 +16,7 @@ import Git.Types
 
 cmd :: Command
 cmd = command "dead" SectionSetup "hide a lost repository or key"
-       (paramRepeating paramRemote) (seek <$$> optParser)
+       (paramRepeating paramRepository) (seek <$$> optParser)
 
 data DeadOptions = DeadRemotes [RemoteName] | DeadKeys [Key]
 

diff --git a/Command/Semitrust.hs b/Command/Semitrust.hs
index 5bf556ed304459c01234b077f8b5e74b4f220914..c9a7336c3f57cbd63f9be68c0e0f625263c07df4 100644 (file)
--- a/Command/Semitrust.hs
+++ b/Command/Semitrust.hs
@@ -14,7 +14,7 @@ import Command.Trust (trustCommand)
 cmd :: Command
 cmd = command "semitrust" SectionSetup 
        "return repository to default trust level"
-       (paramRepeating paramRemote) (withParams seek)
+       (paramRepeating paramRepository) (withParams seek)
 
 seek :: CmdParams -> CommandSeek
 seek = trustCommand "semitrust" SemiTrusted

diff --git a/Command/Trust.hs b/Command/Trust.hs
index 44fb968e3de855f676738bf3164d568fab78fe1c..b251fb194e5e0b091ebc363d7763b2c44349de90 100644 (file)
--- a/Command/Trust.hs
+++ b/Command/Trust.hs
@@ -18,7 +18,7 @@ import qualified Data.Set as S
 
 cmd :: Command
 cmd = command "trust" SectionSetup "trust a repository"
-       (paramRepeating paramRemote) (withParams seek)
+       (paramRepeating paramRepository) (withParams seek)
 
 seek :: CmdParams -> CommandSeek
 seek = trustCommand "trust" Trusted

diff --git a/Command/Untrust.hs b/Command/Untrust.hs
index 88973596cec1d22713592e27dc2cc951e0565bdc..9126cbed57d0e50cd12a5671bc9d66279d2ecc1b 100644 (file)
--- a/Command/Untrust.hs
+++ b/Command/Untrust.hs
@@ -13,7 +13,7 @@ import Command.Trust (trustCommand)
 
 cmd :: Command
 cmd = command "untrust" SectionSetup "do not trust a repository"
-       (paramRepeating paramRemote) (withParams seek)
+       (paramRepeating paramRepository) (withParams seek)
 
 seek :: CmdParams -> CommandSeek
 seek = trustCommand "untrust" UnTrusted